* server.el (server-start): Simplify loop.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 60a1b8a3f18ff2d5bf594e28b6f6ae5695b8c25e..c6476ca1df5e4a5b28690d6a2e3a5ef9f784603e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-03  Leo  <sdl.web@gmail.com>
+
+       * server.el (server-start): Simplify loop.
+
 2010-08-02  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * frame.el (screen-height, screen-width, set-screen-width)

diff --git a/lisp/server.el b/lisp/server.el
index 1ac2fb5b36122471a30fbf4849288265ebeeefbf..b2198caec4c6f2dc641baaf03d2a8daeafa28ca5 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -577,7 +577,7 @@ server or call `M-x server-force-delete' to forcibly disconnect it.")
                   (loop
                      ;; The auth key is a 64-byte string of random chars in the
                      ;; range `!'..`~'.
-                     for i below 64
+                     repeat 64
                      collect (+ 33 (random 94)) into auth
                      finally return (concat auth))))
              (process-put server-process :auth-key auth-key)